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Algorithm Cluster ingofOocs(UserQryProf i le[N] , Ret_Docs[N]) 

// COMPUTE ENTROPY BY USING USER PROFILE AND KEYWORDS EXTRACTED 

FROM EACH DOCUMENT, AND PRODUCE DOCUMENT CLUSTER ACCORDING 

TO SIMILARITY 
Set i , j , k to 0 
for i = 1 to NumofRetDocs 

for j = 1 to NumofQuery 

for k = 1 to NumofTerms 
DocMat r i x [ i ] [ j ] = Ca I cEn t r opy ( User Qr yPr of i le[j],Ret_Docs[k]); 
// COMPUTE P-NUMBER OF ENTROPY (KEYWORD, USER PROFILE), AND OBTAIN 

MATRIX HAVING SIZE OF Nx P 

Call CalcSim(Return SimDoc[NumofRetDocs], DocMatr ix[j+kl) ; 
// COMPUTE DISTANCE MATRIX HAVING SIZE OF Nx N BETWEEN N-NUMBERS 
OF DOCUMENTS 
for i = 1 to NumOf Ret Docs 

Call CreatCluster (Return DocCluster[Numof Cluster], SimDoc[i]); 
// FORM CLUSTER BASED ON DISTANCE MATRIX 
for j = 1 to NumOf Cluster 

Call CalcSim(UserQryProfile[NumofCluster], DocCluster [ j ] ) 
// OBTAIN DEGREE OF SIMILARITY BETWEEN EACH CLUSTER AND QUERY WORD 

GIVEN BY USER, AND EACH CLUSTER AND USER PROFILE 
End Cluster ingof Docs 
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Algorithm RankofCluster(Ret_Docs[N]) 
// DOCUMENT CLUSTER BY BAYES I AN SOM AND ORDER-RANKING ALGORITHM 
set i , j , k to 0; 
for i = 1 to k; 
for j = 1 to 3; 

lndex_Vector[k][j] = ExtrOf lndex(Ret_Docs[k]); 
Cal I Mutual I nformat ion(User_Q[Numof Query] , lndex_Vector [k] [j ] ) ; 
OocEnt ropyVector [ i 3 [ j ] = CalculateEntropy(Ret_Docs[k]); 
end j; 
endi; 

if NumofData <= 30 Cal I BootStrap(DocEntropyVector[i][j]); 

// PRODUCE SUFFICIENT DATA COLLECTION REQUIRED FOR LEARNING BAYES I AN 
BAYES I AN NEURAL NETWORK BY EMPLOYING STATISTICAL BOOTSTRAP ALGORITHM 
ALGORITHM IF DATA FOR LEARNING IS SMALL(F0R EXAMPLE, LESS THAN 30) 

DecisionOf I n i t i al Weight () ; 

// DETERMINE INITIAL WEIGHTS FOR KOHONEN NETWORK BY UTILIZING PRIOR 
DISTRIBUTION OF BAYES I AN. THAT IS. AVERAGE IS ZERO, AND INERSE NUMBER 
OF SQUARE ROOT OF NUMBER OF NODES OF KOHONEN LAYER IS UTILIZED 
AS STANDARD DEVIATION 

Call BayesianSOMO; 

for i = 1 to NumOf Cluster; 

Ca I cu I at i onOf Norm(C I uster [NumOfC I uster ] ) ; 

end i; 

RankOfCluster(Value_of_Norra[NumOfCluster]); 
// RE-flANK DOCUMENT CLUSTER HAVING HIGH SIMILARITY TO QUERY WORD 
GIVEN BY USER 
End Rank_of_Cluster 



